home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / fpclip.exe / FAX.PRG next >
Text File  |  1992-08-30  |  1KB  |  54 lines
  1. local AFILeS[1], aFAXDATA[13], CCOVERTEXT,nID
  2.  
  3. cls
  4. set date american
  5. cCOVERTEXT := SPACE(60)
  6. SENDER    := SPACE(30)
  7. EMPFAENGER:= SPACE(30)
  8. FAXNUM    := SPACE(20)
  9. SENDDATE  := DATE()
  10. SENDTIME := TIME()
  11.  
  12. @ 2,0 to 23,79
  13. @ 3,2 say "Covertext  :" get CCOVERTEXT
  14. @ 4,2 say "SENDER     :" get SENDER
  15. @ 5,2 say "FAXNUMMER  :" get FAXNUM PICTURE "@9"
  16. @ 6,2 say "EMPFÄNGER  :" get EMPFAENGER
  17. @ 7,2 say "SENDEDATUM :" get SENDDATE
  18. @ 8,2 say "SENDEZEIT  :" get SENDTIME
  19. read
  20.  
  21.  
  22.  
  23. aFILES[1] := "F:\CIM\FAX\GERMANy.DOC"
  24.  
  25. aFAXDATA[1]  := SENDER
  26. aFAXDATA[2]  := EMPFAENGER
  27. aFAXDATA[3]  := FAXNUM
  28. aFAXDATA[4]  := DTOC(SENDDATE)
  29. aFAXDATA[5]  := SENDTIME
  30. aFAXDATA[6]  := 1
  31. aFAXDATA[7]  := NIL
  32. aFAXDATA[8]  := 0
  33. aFAXDATA[9]  := NIL
  34. aFAXDATA[10] := .t.
  35. aFAXDATA[11] := NIL
  36. aFAXDATA[12] := 0
  37. aFAXDATA[13] := 0
  38.  
  39. IF ! FPINIT()
  40.      @ 24,3 say " Faxkarte antwortet nicht!" color "W+/R"
  41.      inkey(3)
  42.      @ 24,3 clear to 24,79
  43. endif
  44.  
  45. NID := FPSUBMIT(aFAXDATA, AFILES)
  46. if nID < 0
  47.      @ 24,3 say " Fax wurde nicht übersand!" color "W+/R"
  48.      @ 24,40 say "Fehlercode"
  49.      @ 24,50 say  nID
  50.      inkey(3)
  51.      @ 24,3 clear to 24,79
  52. endif
  53.  
  54.